home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / medical / mendelge.cpt / MendelGenetics / MENDELIAN GENETICS I / card_38919.txt < prev    next >
Text File  |  1989-06-13  |  4KB  |  192 lines
  1. -- card: 38919 from stack: in
  2. -- bmap block id: 37974
  3. -- flags: 0000
  4. -- background id: 2665
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=357 top=164 right=187 bottom=415
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: F1
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=357 top=195 right=218 bottom=415
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: F2
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 00
  38. -- high flags: 0002
  39. -- rect: left=357 top=255 right=278 bottom=415
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: F3
  48.  
  49.  
  50. -- part 4 (field)
  51. -- low flags: 00
  52. -- high flags: 0002
  53. -- rect: left=358 top=282 right=305 bottom=416
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: F4
  62.  
  63.  
  64. -- part 5 (button)
  65. -- low flags: 00
  66. -- high flags: 8003
  67. -- rect: left=332 top=130 right=152 bottom=432
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: SELFED
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   delete line 1 of card field F1
  79.   delete line 1 of card field F2
  80.   repeat 32 times
  81.     put random of 16 into it
  82.     if it <=15 then add 1 to card field F1
  83.     else add 1 to card field F2
  84.   end repeat
  85.   add the value of card field F1 to card field F3
  86.   add the value of card field F2 to card field F4
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 7 (button)
  92. -- low flags: 00
  93. -- high flags: 8003
  94. -- rect: left=333 top=24 right=46 bottom=433
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: RESET
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   put 0 into card field F1
  106.   put 0 into card field F2
  107.   put 0 into card field F3
  108.   put 0 into card field F4
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 8 (button)
  114. -- low flags: 00
  115. -- high flags: 8003
  116. -- rect: left=353 top=316 right=338 bottom=453
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: CHI SQUARE
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   global bagone
  128.   global bagtwo
  129.   put the value of card field F3 into "bagone"
  130.   put the value of card field F4 into "bagtwo"
  131.   go to card id 25732
  132.   put 0 into card field class1
  133.   put 0 into card field class2
  134.   put 0 into card field class3
  135.   put 0 into card field class4
  136.   put 0 into card field F5
  137.   put 0 into card field F6
  138.   put 0 into card field F7
  139.   put 0 into card field F8
  140.   put bagone into card field "CLASS1"
  141.   put bagtwo into card field "CLASS2"
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 9 (button)
  147. -- low flags: 00
  148. -- high flags: 8003
  149. -- rect: left=164 top=315 right=337 bottom=264
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: SUB HEADINGS
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   go to card id 34122
  161. end mouseUp
  162.  
  163.  
  164.  
  165.  
  166. -- part contents for background part 1
  167. ----- text -----
  168. SHEPHERD'S PURSE SEEDS
  169.  
  170. -- part contents for background part 2
  171. ----- text -----
  172. Two true breeding strains of Shepherd's Purse are bred and produce an F1 that displays only triangular seed coats. However some ovoid shaped coats creep into the F2. Self the F1 to see how many ovoid coats appear and strike an hypothesis explaining the method of inheritance. Check your hypothesis with the Chi Square.
  173.  
  174. -- part contents for card part 3
  175. ----- text -----
  176. 89
  177.  
  178. -- part contents for card part 4
  179. ----- text -----
  180. 7
  181.  
  182. -- part contents for background part 8
  183. ----- text -----
  184. 177
  185.  
  186. -- part contents for card part 2
  187. ----- text -----
  188. 4
  189.  
  190. -- part contents for card part 1
  191. ----- text -----
  192. 28